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This routine converts a number expressed in floating point 
notation to its internal two word octal representation. 
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1. REOUIRE^IENTS 

1. 1 Memory 

2K or larger alterable memory 

1.2 Equipment 

h teletype with keyboard input (KSR) 

1.3 External Subroutines 

The Basic Floating Point Package is required 
(Binary? 091-000012) . 

1.4 Other 
None 

2. OPERATIBG PROCEDURE 
2.1 Call inq g e gue nc e 

a. Load the Basic Floating Point Package. 

b. Load Floating Point to Octal. 

c. Enter 000002 in the data switches, press RESET 
then START. 

2-2 Input Format 

An "F" will be typed on the teletype, indicating a 
floating point nuntoer is requested. A number 
should be typed in from the teletype keyboard. 
Numbers in the following form will be converted; 

+nn • • • nE +iniii ( b re ak ) 
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where the "n's" represent the decimal mantissa 
(the first seven non-zero digits will be converted 
and the remaining digits ignored) and the "m's" 
represent the decimal characteristic. The signs of 
the mantissa and characteristic are optional with 
the default assumed "+", The break character is 
any character other than 

1, a decimal digit 
or 2. an "E" 

h decimal point is optional, as well as the 
characteristic. If an error is made on input, rubout 
can be pressed to clear the string and a new input 
will be requested. 

Some examples of legal inputs are 

1* 
1.* 

1.015* 
4E5* 
+41+^6* 

+3,1415926* 
|^.|^^02E-59* 

where "*" has been used as the break character, 

2, 3 Output Format 

Two digit octal words will be typed. These two 
words are the internal representation, in floating 
point format, of the input. If two consecutive memory 
words are defined to contain this octal information, 
they constitute a floating point constant of the input 
value. For example, 

3.1415926 04^462 #417 66 

might be a typical input and response. This octal 
representation can now be used to define "pi" for 
use with the Floating Point Interpreter. 
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2.4 Error Returns 

If an error is detected in the Input, "?" will be 
typed on another input will be requested, 

2.5 State of Active Registers upon Exit 
Not applicable 

2.6 Cautions to User 
None 

3. DISCUSSION 

3.1 Algorithms 

The routine uses the Floating Point Interpreter to 
convert the input to binary and store it in two 
consecutive locations. The input conversion OK 
flag is checked to determine if the input was in 
error. If no error is detected, the two result 
words are converted to ASCII octal and printed on 
the teletype. 

3.2 Limitations and Accuracy 
Numbers in the approximate range 

8.7*l^**-78 4 F ^ 7.2*1^**75 
will be correctly converted. 

3. 3 Size and Timing 

The routine requires 205 (octal) words. 

Execution time is limited by the teletype output speed. 

3.4 References 

The Floating Point Interpreter is described in publica- 
tion 093-000019. 
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3.5 Flow Diaqrains 

None 

4, EXAMPLES AMD APPLICATIONS 

This routine provides a means for defining floating point 
constants at assembly tine. Since the Assembler does not 
accept floating point values in expressions, it is necessary 
to know the octal representation for a floating point nunijer 
in order to define it at assembly time. For example, 
"pi" could be defined by 



Pi! 



4^462 
41766 



I FIRST FORD OP PI 
; SECOND WORD OF PI 
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listing of floating point to octal follows. 



I CO.^VENT A FLOATIi^G POINT IWPUT TO OCTAL 

I INPUTS A i^UrtBER in EiMGlWEENIi^ti i^aTATIOi^ TYPED 

Ii^ FKOrt THE.'ITY KEYBOAND 

i^UMRER OF FQHmt 

C+)Mrt. • •MMEC+)CCCBHEAK> 



WHEHE M IS THE MA:^! i :--SA (FIRST SEVEi^ ..MUi\-£EHO 

DIGITS CO.MVEHTED) AM) C IS THfi CHAKACTEHI SI 1 C • 

PLUS SIGWS ARE OPTIONAL. CHAHACTEkl STI C IS 

OPTIOi^AL Ai^D ASSUKiKH E^/'5^ IF i^OT GIVEW. 

PHEAK IS Ai^YTHING OTHEk TH.Ai^ AN "E" OR 

A DECIMAL DIGIT. THE DFCL^iAL POIi^T MAY 

BE PLACED Ai^fWHEKt: i i'^ THF! .^/Ai^TlSSA* IF I'^OT 

PRESEi^T* IT IS ASSU;-^.F.D 10 RE AT THE KI6HT ' 

(I INTEGER) . 

IF A RUBOUT IS Fi^CaiJi^TERED^ THE COiMVEHSIOi^ -^ILL 

START OVER. 

OUTPUT; OCTAL PRIi^TOUT Oi^ THE TTY OF THE 

TWO WORD FLOATING POIi^T i^UMBEK'lN 
PACKED FLOATING POIWT FORMAT 

CALLING SEQUEi^CEs 

THE HOUTIl^^E IS STARTED BY EiMTEHIt^G 

00000P Ii^ THE DATA SWITCHES* PRESSli^G 

RESET* THEiM START* 

^H "F»* ^ILL RE TYPED ^HEt^EVEP Ai^ It^PUT IS 

PEOIJESTED 

E-RPOR CONOITIOi^SJ EKPOHS I»^ THE Ii^PUT ^ILL CAUSE 

A ••?*• TO RE TYPED AND A sMEwl 
Ii^JPUT PEOUESTEO 

CAUTIOi^s NUMBERS iiUST BE I»M THE APPROXIMATE 

RAiMGEs 

I REOUIPESS THE IK FL0A1I»MG P0l4^T INTEHPHETEH 



?f f 





00Pf40p 


.LOG 


? 


agi^mp. 


«0Pf^4 4 


JMP 


fl44 


WP<^P3 


(103P44 


JMP 


#44 




0PWPP7 


• LOC 


7 


«M0«7 


W0 54WC4 /JAl 


STRl- 


• IPP 




C?f«0P40 


.LJC 


40 


e0P4P 


0P5554 


IP', 




i^rnm/il 


f/imSSlP 


OPT 






(400^44 


• LOC 


^4 


C-10P4 4 


0P55(40 


STWT 


1 S' 




(40 5 5W0 


*Li}C 


56«P- 1( 



I STAHTIi^G LOCATlOi^ 
I RESTART LOCA'IIOi^ 






I AOPNESS OF INPUT kOlJTIi^E 
I ADDRESS OF OUl PUT ROUTINE 



I STAHTIi^G ADilKESS 



I START OF Ic^TEHFHETEH - LEi^GTH 
I OF THIS KOUTI.^E 



W0CTPCI1 C0K=1 



05500 


flP6Pe5 


STRTS 


Fli^I 


05501 


«B6P04 


FDOCs 


FFTR 


P,5b(^P. 


1^0001 




FDFCl VI 


55^3 


C^4043C1 




FSTA «#i'^lJM 


055W4 


1P0W00 




FEKj 


i' 


«5505 


<^3PP07 




LOA 


?# '^A 


05 506 


0310C?I| 




LOA 


P^COK^P 


C^5507 


1 51C?i04 




MOV 


P*?*Si!K 


W5510 


0PP404 




JMP 


FPOC! 


«55l 1 


WP04 1 6 




LDA 


«# OlfES 


P5S1P 


0P44^ffl 




JSk 


OPT 


05513 


C1C3104P7 




JMP 


FDOCP 


P5514 


3041 7 


FBOCI : 


LDA 


P* s^ilM 


W551 5 


P044P0 




JSN 


CVHT 


« 5 5 1 6 


PIP041 4 




LDA 


CT#SP 


«5517 


00 44 53 




JSH 


OPT 


CT55P0 


03P4I 4 




LDA 


f>#iMliM^- 1 


055^1 


a«44 1 4 




JSk 


CVkT 


W55PP 


0PP406 


FDOC^I 


LDA 


0#CK 


W55P3 


PIPI4447 




JSR 


OPT 


«5 5?>4 


0P0 40 5 




LDA 


0#LF 


«55?5 


PP4445 




JSr. 


OPT 


«55P6 


0W07 53 




JMP 


FDOC 


.^c sp7 


^« Map 7 7 


'^^'■F.St 


ti«^ 




^5'^-:iy^ 


0000 1 5 


r: ?< : 


1 5 




r's 5 5 1 1 


CT-^wp i P 


LF: 


IP 




f-^ s. '^ :', p 


Ol0{'l'/^40 


S i-^ : 


4« 






(A(?',g\(An'p 


,\; ! ;>i ♦ 


• RLH 


: P 



I IiMlTIALIiiE IMTERPKETER 

J EWTER 

I CUi^VERT Ii^FUT 

I STORE RESULTS 

I FXIT FOR PNItMTIWG 

I GET '^I HI ABLE AHEA ADDRESS 

I CHECK FOR I.^PUT ERROK 

I HO 



I GET FIRST OF T^O *ONDS 

J COWVEHT At^D PRI.MT 

I OUTPUT SPACF 

I GET SECOtMD Mm) 

I COiMVENT A.^D PRI.^T 

I CAHHIGE HElUHi^ 

; OUTPUT CR# LF 

I LIi^E FEED 

I LOOP FOR i^EKl i^UMBEH 



I ST ON AGE FOR FLOATIi^G POIi^T 



fit 



I cow VERT AC? TO OCTAL AND PNIWT RESULTS 



055.15 W544I5 CVRTt STA 3#:^AVR 

05537 13?4«1 CVHIS S'j?^ W^i^SK,-^ 

(15540 «^0413 CVRPJ Lf'A '/"^Jfj? 
P 5 54 1 1 P 1 4W« I s\-C r/^ 0* 

«554? 13J5533 SU^^iL* i^P^.'JNC 

P5543 '000774 JMP CVRl 

W5544 WW44P6 JSR OPT 

05545 IPSP^e M0V2H IjI 

PI5546 lf>5Pf>^ MOV^H 1*1 

05547 IP.SPP.4 MOV16R Ul#Si!R S 

0555W 000770 JMP CVNP I 

05551 P10?4ei JMP fSAVR I 



1 ^-nc^;7C^ TO A01 

L'KC^?AhF c':'x-ENi riieiT by i 

'.iCTAL 57 

«~U^-M ASCII 'Ji'TPfJT 0I6IT 

^i^iiJB I •■'•PL IRS DIGIT COMPLETE 



I OUTPUT DIGIT 



PasiTIOi^ "1" 
iMQT DOi^E YET 
DONE* NETUN.M 



FQH i^EXT DIGIT 



0555f> 00PPIWP SAVH: C^ 
05553 «0PP57 057: 57 



I li^PlIT A CHARACTKH TO AC0 



W5554 
^5555 
^5556 
P5557 
«556« 
05561 
0556P 
05563 
05564 
^5565 
05566 
05567 
0557W 
W5571 



0601 10 
0636 IP 
0^0777 
«6P610 
PP44I 6 
1P340P 
W54770 
0P44W7 
0P/I744 
106414 
««J>764 
0P074P 
0W440P 
0MP761 



IPTt IMIOS TTI 
SKPBH TTI 
JMP .-1 
1)1 AC 0*TTI 
LDA 1#MSK 

3#SAVR 



I START AtMD OET A CHANACTER 



STA 

JSR 

LDA 

SUB# 

JMP 

LDA 

JSR 

JMP 



OPT 
1#CK 

PSAVk 
0jLF 
OPT 
PSAVR 



MASK TO 7 BITS 
SAVE RETURW 
OUTPUT CHANACTEK 
TEST FOK CR 



•MO RETIJRi^J 
YES* OUTPUT 



LI WE FEED 



I OUTPUT A CHAHACTEH IH AC« TO TTY 



W557P W635I1 OPTI SKPRg TTO 

P5573 ^mmm ,js^p .-i 

05574 P61111 DOAS «# TTO 

«5575 0^1400 JMP 0,3 



P5576 ^001 77 MSK 



1 77 



I INPUT MASK 



END 



